update normalise function

[TKMarkCheng]

NormaliseForIC50/R/normalise_plate.R

Line 69 in f54d19a

(1-scale(value,center=control.neg,scale=control.pos-control.neg)/1 #actual normalization

The nornalise_cell function can be more generalisable at the moment

normalise_cell <- function(value,control.neg,control.pos){ #nested function - the normalization of individual cells
    return(
      round(
        (1 - (value - control.neg) / (control.pos - control.neg)) # express as inverse value (neutralization activity)
        *100 #express as percentage
        ,3 #round to 3 decimal points (Prism standard)
      ))
 }