Bioequivalence and Bioavailability Forum

Data frame challenge [🇷 for BE/BA]

posted by ElMaestro  – Denmark, 2016-12-18 12:47 (3050 d 01:58 ago) – Posting: # 16854
Views: 4,696

Hi Mittyri,

❝ A=read.table("SomeFile.csv", header=T, stringsAsFactors = F, sep=",")


❝ apply(A, 2, function(x){


❝        as.numeric(replace(x,
❝          !grepl("[-]?[0-9]+[.]?[0-9]*|[-]?[0-9]+[L]?|[-]?[0-9]+[.]?[0-9]*[eE][0-9]+",x), 0))})

❝

❝ But more readable would be

❝ A=read.table("SomeFile.csv", header=T, stringsAsFactors = F, sep=",")


❝ checkandreplace <- function(x){


❝   # which values are looking not as a numeric?
❝   isnotnumeric <- !grepl("[-]?[0-9]+[.]?[0-9]*|[-]?[0-9]+[L]?|[-]?[0-9]+[.]?[0-9]*[eE][0-9]+",x)
❝   # we need to replace them with 0
❝   replaced0 <- replace(x, isnotnumeric, 0)
❝   # and to convert it all to numeric
❝   return(as.numeric(replaced0))

❝ }

❝ apply(A, 2, checkandreplace)

My eyes! My eyes! It hurts.

Complete thread:

• Data frame challenge ElMaestro 2016-12-17 19:40 
  • Data frame challenge mittyri 2016-12-18 01:41
    • Data frame challengeElMaestro 2016-12-18 11:47
  • Data frame challenge wligtenberg 2016-12-19 14:29
  • Data frame challenge zizou 2016-12-19 18:41
    • Data frame challenge ElMaestro 2016-12-19 21:06