Commit 0cb37d334fea0451f1ad6210e8303d5b33103346
1 parent
db021299ec
Exists in
master
Update to as.data.frame function
Showing
1 changed file
with
15 additions
and
15 deletions
Show diff stats
RAutoClDs.R
... | ... | @@ -218,7 +218,7 @@ THEFT <- function(){ |
218 | 218 | colnames(ALZWORD) <- colnames(ALZWORD,do.NULL=FALSE) |
219 | 219 | ALZWORD <- chngrownm(ALZWORD)[-1,] |
220 | 220 | ALZWORD <- ALZWORD%>% |
221 | - as.data.frame()%>% | |
221 | + as.data.frame(.,stringsAsFactors = FALSE)%>% | |
222 | 222 | dplyr::select(-starts_with("col")) |
223 | 223 | |
224 | 224 | ##Reorganizing information within the columns and final clinical data |
... | ... | @@ -321,7 +321,7 @@ THEFT <- function(){ |
321 | 321 | |
322 | 322 | #Full RAW Data |
323 | 323 | Fullalzdwr <- ALZDAT %>% |
324 | - as.data.frame() %>% | |
324 | + as.data.frame(.,stringsAsFactors = FALSE) %>% | |
325 | 325 | cbind(ALZWORDF,.) |
326 | 326 | |
327 | 327 | #Raw file is output |
... | ... | @@ -347,9 +347,9 @@ THEFT <- function(){ |
347 | 347 | |
348 | 348 | ##Getting the names for the rows |
349 | 349 | namedarows <- rownames(rawword)[-hereim] %>% |
350 | - as.data.frame() | |
350 | + as.data.frame(.,stringsAsFactors = FALSE) | |
351 | 351 | RAWWORD <- rawword[-hereim,] %>% |
352 | - as.data.frame() %>% | |
352 | + as.data.frame(.,stringsAsFactors = FALSE) %>% | |
353 | 353 | bind_cols(namedarows,.) |
354 | 354 | z <- 1 |
355 | 355 | naroww <- as.data.frame(rep(0,dim(RAWWORD)[1]),stringsAsFactors = FALSE) |
... | ... | @@ -373,7 +373,7 @@ THEFT <- function(){ |
373 | 373 | colnames(roALZna) <- "ID_REF" |
374 | 374 | |
375 | 375 | RAWDAT <- t(ALZDAT) %>% |
376 | - as.data.frame(.) | |
376 | + as.data.frame(.,stringsAsFactors = FALSE) | |
377 | 377 | colnames(RAWDAT) <- NULL |
378 | 378 | rownames(RAWDAT) <- NULL |
379 | 379 | |
... | ... | @@ -416,11 +416,11 @@ THEFT <- function(){ |
416 | 416 | dialzdat <- scrawdat %>% |
417 | 417 | dndat(.) %>% |
418 | 418 | t()%>% |
419 | - as.data.frame(.) | |
419 | + as.data.frame(.,stringsAsFactors = FALSE) | |
420 | 420 | colnames(dialzdat) <- rownames(RAWDATNUM) |
421 | 421 | |
422 | 422 | ##setting "ID_REF" as a new variable |
423 | - geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1)) | |
423 | + geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1),stringsAsFactors = FALSE) | |
424 | 424 | colnames(geneNAM) <- "ID_REF" |
425 | 425 | rownames(dialzdat) <- NULL |
426 | 426 | dialzdat <-bind_cols(geneNAM,dialzdat) |
... | ... | @@ -506,7 +506,7 @@ THEFT <- function(){ |
506 | 506 | colnames(ALZWORD) <- colnames(ALZWORD,do.NULL=FALSE) |
507 | 507 | ALZWORD <- chngrownm(ALZWORD)[-1,] |
508 | 508 | ALZWORD <- ALZWORD%>% |
509 | - as.data.frame()%>% | |
509 | + as.data.frame(.,stringsAsFactors = FALSE)%>% | |
510 | 510 | dplyr::select(-starts_with("col")) |
511 | 511 | |
512 | 512 | ##Reorganizing information within the columns and final clinical data |
... | ... | @@ -609,7 +609,7 @@ THEFT <- function(){ |
609 | 609 | |
610 | 610 | #Full RAW Data |
611 | 611 | Fullalzdwr <- ALZDAT %>% |
612 | - as.data.frame() %>% | |
612 | + as.data.frame(.,stringsAsFactors = FALSE) %>% | |
613 | 613 | cbind(ALZWORDF,.) |
614 | 614 | |
615 | 615 | #Raw file is output |
... | ... | @@ -635,7 +635,7 @@ THEFT <- function(){ |
635 | 635 | |
636 | 636 | ##Getting the names for the rows |
637 | 637 | namedarows <- rownames(rawword)[-hereim] %>% |
638 | - as.data.frame() | |
638 | + as.data.frame(.,stringsAsFactors = FALSE) | |
639 | 639 | RAWWORD <- rawword[-hereim,] %>% |
640 | 640 | as.data.frame() %>% |
641 | 641 | bind_cols(namedarows,.) |
... | ... | @@ -657,11 +657,11 @@ THEFT <- function(){ |
657 | 657 | |
658 | 658 | roALZna <- t(ALZDAT) %>% |
659 | 659 | rownames(.) %>% |
660 | - as.data.frame(.) | |
660 | + as.data.frame(.,stringsAsFactors = FALSE) | |
661 | 661 | colnames(roALZna) <- "ID_REF" |
662 | 662 | |
663 | 663 | RAWDAT <- t(ALZDAT) %>% |
664 | - as.data.frame(.) | |
664 | + as.data.frame(.,stringsAsFactors = FALSE) | |
665 | 665 | colnames(RAWDAT) <- NULL |
666 | 666 | rownames(RAWDAT) <- NULL |
667 | 667 | |
... | ... | @@ -671,7 +671,7 @@ THEFT <- function(){ |
671 | 671 | |
672 | 672 | ##Editing the file for R processing |
673 | 673 | RAWDATID <- RAWDAT2[,1] %>% |
674 | - as.matrix(.) | |
674 | + as.matrix(.,stringsAsFactors = FALSE) | |
675 | 675 | |
676 | 676 | RAWDATNUM <- RAWDAT2[,-1] %>% |
677 | 677 | mapply(.,FUN = as.numeric) %>% |
... | ... | @@ -704,11 +704,11 @@ THEFT <- function(){ |
704 | 704 | dialzdat <- scrawdat %>% |
705 | 705 | dndat(.) %>% |
706 | 706 | t()%>% |
707 | - as.data.frame(.) | |
707 | + as.data.frame(.,stringsAsFactors = FALSE) | |
708 | 708 | colnames(dialzdat) <- rownames(RAWDATNUM) |
709 | 709 | |
710 | 710 | ##setting "ID_REF" as a new variable |
711 | - geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1)) | |
711 | + geneNAM <- as.data.frame(as.matrix(rownames(dialzdat),ncol=1),stringsAsFactors = FALSE) | |
712 | 712 | colnames(geneNAM) <- "ID_REF" |
713 | 713 | rownames(dialzdat) <- NULL |
714 | 714 | dialzdat <-bind_cols(geneNAM,dialzdat) |