Commit 0cb37d334fea0451f1ad6210e8303d5b33103346

Authored by Efrain Gonzalez
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
... ... @@ -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 &lt;- 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 &lt;- 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 &lt;- 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 &lt;- 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 &lt;- 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 &lt;- 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 &lt;- 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 &lt;- 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 &lt;- 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 &lt;- 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)