library(chemistr)
File name:
Project Link:
# Here is where you input your data from your Part B max wavelength experiment Color <- c("Color 1", "Color 2", "ETC") #Input the names of the colors you tested. This is not a numerical variable, therefore the words must be surrounded by quotation marks. Example: "Red" Blank <- c(value1, value2, etc) #Input the resistance (in kOhms) for the empty cuvette. This is a numerical variable and therefore the numbers can be entered directly, without quotes. Example: c(12.5, 14.5) Water <- c(value1, value2, etc) #Input the resistance (in kOhms) for cuvette filled with just water. This is a numerical variable and therefore the numbers can be entered directly, without quotes. Example: c(12.5, 14.5) Blue <- c(value1, value2, etc) #Input the resistance (in kOhms) for the cuvette filled with 10 µM Blue Food dye Transmittance_Blue <- #Mathmatically calculate $T from your raw resistance variables above (Blank and Blue) Transmittance_Water <- #Mathmatically calculate %T from your raw resistance variables above (Blank and Water) Transmittance <- #We want the transmittance only due to the blue food coloring and not any interaction of the water. For reasons we won't go into, this is done by taking 100*Transmittance_Blue divided by the Transmittance_water
#Another way to present data is in a graph. This is helpful for seeing a trend. We are going to create a bar graph of your results to see a trend in how transmittance changes with color of light. data1 <- data.frame(Transmittance, Color) #creates a data frame for variables. ggplot(data= dataframe, aes(x=xname, y=yname)) + #You need to assign the data frame your variables are in (data1) and the X vector name (Color) and Y vector name (Transmittance). geom_bar( )
Delete these words and type in answer.
Delete these words and type in answer.
Delete these words and type in answer.
Delete these words and type in answer.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.