Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alr ~ 1 R
- R version 3.6.0 (2019-04-26) -- "Planting of a Tree"
- Copyright (C) 2019 The R Foundation for Statistical Computing
- Platform: x86_64-redhat-linux-gnu (64-bit)
- R is free software and comes with ABSOLUTELY NO WARRANTY.
- You are welcome to redistribute it under certain conditions.
- Type 'license()' or 'licence()' for distribution details.
- Natural language support but running in an English locale
- R is a collaborative project with many contributors.
- Type 'contributors()' for more information and
- 'citation()' on how to cite R or R packages in publications.
- Type 'demo()' for some demos, 'help()' for on-line help, or
- 'help.start()' for an HTML browser interface to help.
- Type 'q()' to quit R.
- > source('/home/alr/Downloads/VarianceAssociates.R')
- 4 Plane Strategy. Profits = 45 Variance 39375
- 5 Plane Strategy. Profits = 96 Variance 49059
- 6 Plane Strategy. Profits = 105 Variance 75375
- 7 Plane Strategy. Profits = 57 Variance 87876
- 8 Plane Strategy. Profits = 0 Variance 104400
- Cash Flows when Demands Dependent
- 4 Plane Strategy. Profits = 45
- 5 Plane Strategy. Profits = 96
- 6 Plane Strategy. Profits = 105
- 7 Plane Strategy. Profits = 57
- 8 Plane Strategy. Profits = 0
- Cash Flows when Demands Independent
- 4 Plane Strategy. Profits = 96.0000000000001
- 5 Plane Strategy. Profits = 135
- 6 Plane Strategy. Profits = 123
- 7 Plane Strategy. Profits = 69.0000000000001
- 8 Plane Strategy. Profits = 1.13686837721616e-13
- > ls()
- [1] "Cash_Flows" "CF" "Compen_Cost"
- [4] "Covariance" "Covariance_Ind" "Expect"
- [7] "Expected_CF" "Expected_CF_Fear" "Expected_CF_Oops"
- [10] "Expected_Dem_Fear" "Expected_Dem_Oops" "Expected_Total"
- [13] "Fear_Demand" "Fixed_Cost" "Oops_Demand"
- [16] "P" "Plane_Dist" "Planes_Demand"
- [19] "Planes_Firm" "Planes_On_Hand" "Planes_Total"
- [22] "Revenue" "Strat" "Variance_CF"
- > Covariance
- [1] 0.82
- > Variance_CF
- [1] 104400
- > sqrt(Variance_CF)
- [1] 323.1099
- > Covariance/sqrt(Variance_CF)
- [1] 0.002537836
- > q()
- Save workspace image? [y/n/c]: n
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement