# Create a sequence of numbers from 1 to 100
serial <- 1:100
# Create six vectors of random numbers, one for each column
col1 <- rnorm(100)
col2 <- rnorm(100)
col3 <- rnorm(100)
col4 <- rnorm(100)
col5 <- rnorm(100)
col6 <- rnorm(100)
# Combine the vectors into a data frame
df <- data.frame(serial, col1, col2, col3, col4, col5, col6)
df_nonlinearity(df)
Run the code above in your browser using DataLab