Recent public codes are listed below. You can filter them by the following programming languages:
- view
- All
- Ada
- Assembler
- Assembler
- AWK (gawk)
- AWK (mawk)
- Bash
- bc
- Brainf**k
- C
- C#
- C++
- C++0x
- C99 strict
- CLIPS
- Clojure
- COBOL
- COBOL 85
- Common Lisp (clisp)
- D (dmd)
- Erlang
- F#
- Factor
- Falcon
- Forth
- Fortran
- Go
- Groovy
- Haskell
- Icon
- Intercal
- Java
- JavaScript (rhino)
- JavaScript (spidermonkey)
- Lua
- Nemerle
- Nice
- Nimrod
- Objective-C
- Ocaml
- Oz
- Pascal (fpc)
- Pascal (gpc)
- Perl
- Perl 6
- PHP
- Pike
- Prolog (gnu)
- Prolog (swi)
- Python
- Python 3
- R
- Ruby
- Scala
- Scheme (guile)
- Smalltalk
- SQL
- Tcl
- Text
- Unlambda
- VB.NET
- Whitespace
-
1 2 3 4 5 6
primes = c(2,3,5,7,11); for(i in primes) { print(i); i }
-
1 2 3 4 5
primes = c(2,3,5,7,11); for(i in primes) { primes[i]; }
-
1 2 3 4 5
primes = c(2,3,5,7,11); for(i in primes) { i }
-
1 2 3 4 5 6
n = 10; p = 0.25; q = 1 - p; S = rbinom(1, n, p); x = (S - n*p) / sqrt(n*p*q); x
-
1 2 3 4 5
n = 10; p = 0.25; q = 1 - p; S = rbinom(1,n,p); (S - n*p) / sqrt(n*p*q);
-
1
iris
-
1
sweep(iris[,1:4], 2, colMeans(iris[,1:4]))
-
1 2 3 4 5 6 7 8 9
<div id="http://www.facebook.com/people/Ditanion-Pumphrey/100000586960330"></div> <script src="http://connect.facebook.net/en_US/all.js"></script> <script> FB.init({ status : true, // check login status cookie : true, // enable cookies to allow the server to access the session xfbml : true // parse XFBML });
-
1 2 3 4 5 6 7 8 9
<div id="http://www.facebook.com/people/Ditanion-Pumphrey/100000586960330"></div> <script src="http://connect.facebook.net/en_US/all.js"></script> <script> FB.init({ status : true, // check login status cookie : true, // enable cookies to allow the server to access the session xfbml : true // parse XFBML });
-
1 2 3 4 5 6 7 8 9
<div id="http://www.facebook.com/people/Ditanion-Pumphrey/100000586960330"></div> <script src="http://connect.facebook.net/en_US/all.js"></script> <script> FB.init({ status : true, // check login status cookie : true, // enable cookies to allow the server to access the session xfbml : true // parse XFBML });
-
1 2 3 4
fun <- function(x) x^2 + x - 1 # create function curve(fun, xlim=c(-2, 1)) # plot f unction ( res <- optimize(fun, interval=c(-10, 10)) ) points(res$minimum, res$objective) # plot point at minimum
-
1 2 3 4
a<-1 b<-2 c<-c(1,2,3,4,5,6,7,8,9,10)
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame$speed); min(frame$speed);
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); hist(frame$speed,prob=T,main="hist"); hist(frame$cc,prob=T,main="hist");
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame$speed); min(frame$speed);
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame$speed);
...
-
1 2 3 4 5 6 7 8 9
max(frame$speed); min(frame$speed); mean(frame$speed); median(frame$speed); var(frame$speed); sd(frame$speed); fivenum(frame$speed); frame[speed=max(speed),]; row.names(frame)[speed=max(speed)];
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame$speed); min(frame$speed);
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame$speed); min(frame$speed);
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame["speed"]); min(frame["speed"]);
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame["speed"]); min(frame["speed"]);
...
-
1 2 3 4 5 6 7 8
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame["speed"])
-
1 2 3 4 5 6 7 8
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); frame["speed"]
-
1 2 3 4 5 6 7 8
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); frame[speed]
-
1 2 3 4 5 6 7 8
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame[speed]);
-
1 2 3 4 5 6 7 8
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,speed,cc,hpAt,breaks); max(frame.speed);
-
1 2 3 4 5 6 7 8
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,cc,hpAt,breaks); max(frame.speed);
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(names,cc,hpAt,breaks); //hist(car.speed,prob=T,main="hist"); //hist(car.cc,prob=T,main="hist");
...
-
1 2 3 4 5 6 7 8 9
speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); frame = data.frame(car.names,car.cc,car.hpAt,car.breaks); //hist(car.speed,prob=T,main="hist"); //hist(car.cc,prob=T,main="hist");
...
-
1 2 3 4 5 6 7 8 9
car.speed = c(225,250,250,250,215,225,250,215,205,215,235,175,210,214,230,180,190,260,270,270,280,270,210,210,214,165,175,225,225,235); car.cc = c(4942,3506,4601,4942,4942,4942,4942,4942,2254,3210,3210,1590,1797,1797,1797,3494,3471,2977,2977,3179,3179,2977,3494,3474,1998,3165,3494,3206,3206,3210); car.hpAt = c(5250,6500,5800,4200,4000,6000,5700,5750,5700,5600,6100,6200,7600,7600,8000,5200,5300,6800,7300,7300,7100,7300,5200,5200,7400,5200,5400,5600,5600,6100); car.breaks = c('Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Vented discs','Vented discs','Discs','Discs','Discs','Drums','Discs','Discs','Discs','Discs','Discs','Vented discs','Vented discs','Vented discs','Vented discs','Vented discs','Discs','Discs','Discs','Discs','Vented discs','Discs','Discs','Discs'); car.names = c('AC Ace','Acura Aceca','Alfa Romeo Aceca','Alpina Cobra','Alpine Cobra 2','Aro Cobra','Asia Cobra','Aston Martin Cobra','Audi CL','Autobianchi CL','Bentley CL','Bertone EL','BMW RSX III','Bristol RSX Coupe III','Buick RSX Coupe III','Cadillac MDX','Callaway MDX','Carbodies NSX','Caterham NSX','Chevrolet NSX','Chrysler NSX','Citroen NSX-T','Cizeta RL','Coggiola RL','Daewoo RSX IV','DAF SLX','Daihatsu SLX','Dallas TL II','De Lorean TL II','De Tomaso TL II 2'); max(car.speed); min(car.speed); mean(car.speed);
...


