In NiklasTR/bmi713:

knitr::opts_chunk$set(echo = TRUE)

Given an input matrix

example_matrix <- matrix(rexp(100, rate=.5), ncol=20)

normalize <- function(input_matrix) {
  t(t(input_matrix)/colSums(input_matrix) #spaces
)

normalized_matrix <- normalize(example_matrix) #curly braces, 

normalize <- function(input_matrix){
require(magrittr) 
require(dplyr)

input_matrix %>% 
  as.data.frame() %>% 
  mutate_all(funs(.-min(.))) %>% 
  mutate_all(funs(./max(.))) %>%
    return()
}

Final task

# 1) only using subsetting 
iris[iris$Sepal.Length < (mean(iris$Sepal.Length) - sd(iris$Sepal.Length)) &
       iris$Petal.Length < mean(iris$Petal.Length) & 
       iris$Petal.Length/iris$Petal.Width > 3,5]

# 2) 
plot(iris[iris$Sepal.Length < (mean(iris$Sepal.Length) - sd(iris$Sepal.Length)) &
       iris$Petal.Length < mean(iris$Petal.Length),])

NiklasTR/bmi713 documentation built on May 29, 2019, 11:01 p.m.